(align-region): Fix call to `message'.

Check that (car rule) is a symbol.

diff --git a/lisp/align.el b/lisp/align.el
index 388c090a2040c8a3d5fe8f5dd90ad4f548b8f398..5f10d555113e8125a44f7b7e4a1b872b95d1ca52 100644 (file)
--- a/lisp/align.el
+++ b/lisp/align.el
@@ -1413,10 +1413,11 @@ aligner would have dealt with are."
                        ;; are, if it's a very large region being
                        ;; aligned
                        (if report
-                           (let ((name (symbol-name (car rule))))
-                             (if name
+                           (let ((symbol (car rule)))
+                             (if (and symbol (symbolp symbol))
                                  (message
                                   "Aligning `%s' (rule %d of %d) %d%%..."
+                                  (symbol-name symbol)
                                   name rule-index rule-count
                                   (/ (* (- (point) real-beg) 100)
                                      (- end-mark real-beg)))